00100		TITLE TAPOUT
00200		INTERNAL GETTAP,TOTAPE,FINTAP,BACKSP
00400	
00500		CH←13
00900	
07300	;CALL TOTAPE(<ARRAY>,<NO.OF WORDS>)  WRITES ON MAGTAPE
07400	
07500	TOTAPE:	0
07600		HRRZ 0,0(16)
07700		SUBI 0,1
07800		MOVEM 0,COM
07900		MOVN 0,@1(16)
08000		HRLM 0,COM
08100		OUTPUT CH,COM
08200		STATZ CH,740000
08300		0
08400		JRA 16,2(16)
08500	
08600	;CALL GETTAP
08700	
08800	GETTAP:	0	;USES INTAP OR TOTAPE, CH.  READS OR WRITES MTA0.
08900		INIT CH,617
09000		SIXBIT/MTA0/
09100		0
09200		HALT
09300		JRA 16,0(16)
09400	
12200	
12300	COM:	OCT 0,0
12400	COM1:	0
12500	BLKNUM:	0
12600	
14500	FINTAP:	0
14600		CLOSE CH,0
14700		STATZ CH,740000
14800		0
14900		RELEASE CH,0
15000		JRA 16,0(16)
15100	
15200	BACKSP:	0
15310		INIT CH,617
15332		SIXBIT/MTA0/
15354		0
15376		HALT
15380		MTAPE CH,7
15400		JRA 16,0(16)
15500	END